home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / alpha_custom.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  89 lines
  1. /* DISSOLVENZA CON ALPHA A SCELTA (UN LOGO IN B.N.) IN 50 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpAlpha = 'T:alpha'
  9. TmpAlphaB = 'T:alphaB'
  10. TmpIma = 'T:immagine'
  11. TmpIma2 = 'T:immagine2'
  12. BRIGH = 50
  13. CONT = (-49)
  14. NUMEROFRAME = 0   
  15.  
  16. GETFILES '"Seleziona la PRIMA immagine"'
  17.  IF RC ~= 0 THEN EXIT
  18.   PRIMA = ADPRO_RESULT
  19.    IF PRIMA = "" THEN EXIT
  20.      LOADER "UNIVERSAL" PRIMA
  21.     XSIZE
  22.      BASE = ADPRO_RESULT
  23.     YSIZE
  24.      ALTZ = ADPRO_RESULT
  25. SAVER "IFF" TmpIma "RAW"
  26.  
  27. GETFILES '"Seleziona la SECONDA immagine"'
  28.  IF RC ~= 0 THEN EXIT
  29.   SECONDA = ADPRO_RESULT
  30.    IF SECONDA = "" THEN EXIT
  31.      LOADER "UNIVERSAL" SECONDA
  32.     XSIZE
  33.      BASE2 = ADPRO_RESULT
  34.     YSIZE
  35.      ALTZ2 = ADPRO_RESULT
  36. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  37.                           ABS_SCALE (BASE) (ALTZ)
  38.                           END
  39. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  40.                           ABS_SCALE (BASE) (ALTZ)
  41.                           END
  42.           SAVER "IFF" TmpIma2 "RAW"
  43.  
  44. GETFILES '"Seleziona il canale ALPHA del LOGO"'
  45.  IF RC ~= 0 THEN EXIT
  46.   ALPHACUST = ADPRO_RESULT
  47.    IF ALPHACUST = "" THEN EXIT
  48.      LOADER "UNIVERSAL" ALPHACUST
  49.     XSIZE
  50.      BASE3 = ADPRO_RESULT
  51.     YSIZE
  52.      ALTZ3 = ADPRO_RESULT
  53. IF (BASE3 > BASE) | (ALTZ3 > ALTZ) THEN DO
  54.                           ABS_SCALE (BASE) (ALTZ)
  55.                           END
  56. IF (BASE3 < BASE) | (ALTZ3 < ALTZ) THEN DO
  57.                           ABS_SCALE (BASE) (ALTZ)
  58.                           END
  59.           SAVER "IFF" TmpAlpha "RAW"
  60.                           
  61. GETfile '"Path e nomebase 50 frames elaborati"'
  62. IF RC ~= 0 THEN EXIT
  63. OUTFILE = ADPRO_RESULT
  64. if OUTFILE = "" then exit 
  65.   
  66.    DO i=1 to 50
  67.  LOADER "UNIVERSAL" TmpAlpha
  68.   BRIGHTNESS (BRIGH)
  69.   CONTRAST (CONT)
  70.   OPERATOR Apply_Map
  71.    SAVER "IFF" TmpAlphaB "RAW"
  72. LFORMAT "IFF"
  73. LOAD TmpIma2
  74. LOADER "UNIVERSAL" TmpAlphaB COMPOFFSET 0 0 ASALPHA
  75. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  76.      BRIGH = (BRIGH - 2)
  77.      CONT = (CONT + 1)
  78.   NUMEROFRAME = (NUMEROFRAME + 1)
  79. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  80.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  81.  SAY "Salvo il frame Num." NUMERO
  82. END
  83.  
  84. ADDRESS COMMAND "Delete >NIL:" TmpIma
  85. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  86. ADDRESS COMMAND "Delete >NIL:" TmpAlpha
  87. ADDRESS COMMAND "Delete >NIL:" TmpAlphaB
  88. EXIT
  89.